Visual Basic Source Code

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / health / assess1.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1993-07-21 | 29.6 KB | 788 lines

VERSION 2.00 Begin Form assess1 AutoRedraw = -1 'True BackColor = &H00FFFF00& BorderStyle = 1 'Fixed Single ClientHeight = 6915 ClientLeft = 210 ClientTop = 405 ClientWidth = 9525 ControlBox = 0 'False Height = 7320 Left = 150 LinkMode = 1 'Source LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 6915 ScaleWidth = 9525 Tag = "admission" Top = 60 Width = 9645 Begin SSFrame Frame3D1 Alignment = 2 'Center Caption = "Community Memorial Admission Assessment" Font3D = 2 'Raised w/heavy shading FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 13.5 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 6855 Left = 0 TabIndex = 2 Top = -120 Width = 9615 Begin AniPushButton AniButton2 BackColor = &H00FFFFFF& Height = 480 Left = 3960 Picture = ASSESS1.FRX:0000 Speed = 162 TabIndex = 29 Top = 6120 Width = 465 End Begin AniPushButton AniButton1 BackColor = &H00C0C0C0& Caption = "Next Page" Height = 615 Index = 0 Left = 5040 Picture = ASSESS1.FRX:05E2 Speed = 162 TabIndex = 28 TextPosition = 2 'Left Top = 6000 Width = 1455 End Begin AniPushButton AniButton1 BackColor = &H00C0C0C0& Caption = "Back Page" Height = 615 Index = 1 Left = 720 Picture = ASSESS1.FRX:148E Speed = 162 TabIndex = 41 TextPosition = 1 'Right Top = 6000 Width = 1455 End Begin PictureBox Picture2 BackColor = &H00C0C0C0& BorderStyle = 0 'None Height = 2535 Left = 120 ScaleHeight = 4.774 ScaleMode = 0 'User ScaleWidth = 5.58 TabIndex = 4 Top = 3360 Width = 8415 Begin PictureBox Picture6 BackColor = &H00C0C0C0& BorderStyle = 0 'None Height = 1815 Left = 4560 ScaleHeight = 1815 ScaleWidth = 3255 TabIndex = 15 Top = 120 Width = 3255 Begin SSCheck Check3D3 Caption = "INTRODUCED TO ROOMMATE" Font3D = 0 'None ForeColor = &H00FF0000& Height = 375 Index = 8 Left = 2040 TabIndex = 26 Top = 1080 Width = 495 End Begin SSCheck Check3D3 Caption = "PATIENT HANDBOOK" Font3D = 0 'None ForeColor = &H00FF0000& Height = 375 Index = 7 Left = 1440 TabIndex = 25 Top = 1080 Width = 495 End Begin SSCheck Check3D3 Caption = "VALUABLES IN POSSESSION" Font3D = 0 'None ForeColor = &H00FF0000& Height = 375 Index = 6 Left = 840 TabIndex = 24 Top = 1080 Width = 495 End Begin SSCheck Check3D2 Caption = "EXPLAINED" Font3D = 0 'None ForeColor = &H00FF0000& Height = 375 Left = 120 TabIndex = 17 Top = 1080 Width = 255 End Begin SSCheck Check3D3 Caption = "VALUABLES IN SAFE" Font3D = 0 'None ForeColor = &H00FF0000& Height = 375 Index = 5 Left = 2040 TabIndex = 23 Top = 600 Width = 495 End Begin SSCheck Check3D3 Caption = "VALUABLES SENT HOME" Font3D = 0 'None ForeColor = &H00FF0000& Height = 375 Index = 4 Left = 1440 TabIndex = 22 Top = 600 Width = 495 End Begin SSCheck Check3D3 Caption = "USE OF PHONE" Font3D = 0 'None ForeColor = &H00FF0000& Height = 375 Index = 3 Left = 840 TabIndex = 21 Top = 600 Width = 495 End Begin SSCheck Check3D3 Caption = "BED ADJUSTMENT OPERATION" Font3D = 0 'None ForeColor = &H00FF0000& Height = 375 Index = 2 Left = 2040 TabIndex = 20 Top = 120 Width = 495 End Begin SSCheck Check3D3 Caption = "CALL LIGHT IN REACH" Font3D = 0 'None ForeColor = &H00FF0000& Height = 375 Index = 1 Left = 1440 TabIndex = 19 Top = 120 Width = 495 End Begin SSCheck Check3D3 Caption = "VISITING HOURS" Font3D = 0 'None ForeColor = &H00FF0000& Height = 375 Index = 0 Left = 840 TabIndex = 18 Top = 120 Width = 495 End End Begin PictureBox Picture5 BackColor = &H00C0C0C0& BorderStyle = 0 'None Height = 2175 Left = 360 ScaleHeight = 2175 ScaleWidth = 3135 TabIndex = 14 Top = -240 Width = 3135 Begin SSOption Option3D10 Caption = "UNABLE TO TAKE HISTORY" Font3D = 0 'None ForeColor = &H00000000& Height = 375 Index = 4 Left = 720 TabIndex = 40 Top = 1440 Width = 855 End Begin SSOption Option3D10 Caption = "PREVIOUS MEDICAL RECORD" Font3D = 0 'None ForeColor = &H00000000& Height = 375 Index = 3 Left = 1080 TabIndex = 39 Top = 1200 Width = 855 End Begin SSOption Option3D10 Caption = "FRIEND" Font3D = 0 'None ForeColor = &H00000000& Height = 375 Index = 2 Left = 600 TabIndex = 38 Top = 840 Width = 855 End Begin SSOption Option3D10 Caption = "FAMILY MEMBER" Font3D = 0 'None ForeColor = &H00000000& Height = 375 Index = 1 Left = 720 TabIndex = 37 Top = 600 Width = 855 End Begin SSOption Option3D10 Caption = "PATIENT" Font3D = 0 'None ForeColor = &H00000000& Height = 375 Index = 0 Left = 720 TabIndex = 16 Top = 240 Width = 855 End Begin Label Label5 BackColor = &H00C0C0C0& Caption = "PATIENT UNRESPONSIVE " ForeColor = &H00000000& Height = 375 Left = 600 TabIndex = 27 Top = 1800 Width = 1695 End End End Begin PictureBox Picture1 BackColor = &H00C0C0C0& BorderStyle = 0 'None Height = 2895 Left = 360 ScaleHeight = 5 ScaleMode = 0 'User ScaleWidth = 5.5 TabIndex = 3 Top = 480 Width = 8775 Begin SSCheck Check3D1 Caption = " CORRECT IDENTIFICATION BAND" Font3D = 0 'None ForeColor = &H00FF0000& Height = 255 Left = 240 TabIndex = 9 Top = 2520 Width = 3375 End Begin PictureBox Picture4 BackColor = &H00C0C0C0& Height = 1695 Left = 3840 ScaleHeight = 3 ScaleMode = 0 'User ScaleWidth = 2.5 TabIndex = 6 Top = 960 Width = 3375 Begin SSOption Option3D4 Caption = "DOCTOR'S OFFICE" Font3D = 0 'None ForeColor = &H00000000& Height = 495 Index = 2 Left = 600 TabIndex = 33 Top = 1080 Width = 1095 End Begin SSOption Option3D4 Caption = "OTHER" Font3D = 0 'None ForeColor = &H00000000& Height = 495 Index = 5 Left = 1800 TabIndex = 36 Top = 960 Width = 1095 End Begin SSOption Option3D4 Caption = "ER / OPD" Font3D = 0 'None ForeColor = &H00000000& Height = 495 Index = 1 Left = 720 TabIndex = 32 Top = 600 Width = 1095 End Begin SSOption Option3D4 Caption = "RECOVERY ROOM" Font3D = 0 'None ForeColor = &H00000000& Height = 495 Index = 4 Left = 1680 TabIndex = 35 Top = 480 Width = 1095 End Begin SSOption Option3D4 Caption = "NURSING HOME" Font3D = 0 'None ForeColor = &H00000000& Height = 495 Index = 3 Left = 1560 TabIndex = 34 Top = 120 Width = 1095 End Begin SSOption Option3D4 Caption = "HOME" Font3D = 0 'None ForeColor = &H00000000& Height = 495 Index = 0 Left = 840 TabIndex = 8 Top = 120 Width = 1095 End Begin Label Label4 Alignment = 2 'Center BackColor = &H00C0C0C0& Caption = "Label4" Height = 975 Left = 240 TabIndex = 12 Top = 240 Width = 375 End End Begin PictureBox Picture3 BackColor = &H00C0C0C0& Height = 1695 Left = 240 ScaleHeight = 3 ScaleMode = 0 'User ScaleWidth = 2.5 TabIndex = 5 Top = 840 Width = 3135 Begin SSOption Option3D1 Caption = "STRETCHER" Font3D = 0 'None ForeColor = &H00000000& Height = 375 Index = 2 Left = 1560 TabIndex = 31 Top = 1080 Width = 495 End Begin SSOption Option3D1 Caption = "WHEELCHAIR" Font3D = 0 'None ForeColor = &H00000000& Height = 375 Index = 1 Left = 1560 TabIndex = 30 Top = 600 Width = 495 End Begin SSOption Option3D1 Caption = "AMBULATORY" Font3D = 0 'None ForeColor = &H00000000& Height = 375 Index = 0 Left = 1680 TabIndex = 7 Top = 120 Width = 495 End Begin Label Label3 Alignment = 2 'Center BackColor = &H00C0C0C0& Caption = "Label3" Height = 975 Left = 360 TabIndex = 11 Top = 240 Width = 735 End End Begin VHedit HEdit2 Alignment = 2 'Center Enabled = 0 'False FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 18 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 435 InflateBottom = 0.466 InflateLeft = 0.169 InflateRight = 0.169 InflateTop = 0.466 Left = 5040 TabIndex = 44 Text = "HEdit2" Top = 120 Version = 268435458 Visible = 0 'False Width = 2775 End Begin VBedit BEdit1 BackColor = &H00FFFFFF& CellHeight = 0.829 CellWidth = 0.226 CombBaseLine = 0.674 CombEndHeight = 0.207 CombEndMarker = 0 'False CombHeight = 0.104 FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 18 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 495 InflateBottom = 0.311 InflateLeft = 0.113 InflateRight = 0.113 InflateTop = 0.415 InkWidth = 2 Left = 1320 OnTap = -1 'True TabIndex = 0 Text = "BEdit1" Top = 120 Version = 268435458 Width = 2655 End Begin AniPushButton AniButton3 BackColor = &H00C0C0C0& Cycle = 2 '2-state 1/2 & 1/2 Height = 480 Index = 0 Left = 240 PictDrawMode = 1 'Autosize control Picture = ASSESS1.FRX:233A TabIndex = 42 Top = 120 Width = 480 End Begin VBedit BEdit2 BackColor = &H00FFFFFF& CellHeight = 0.829 CellWidth = 0.226 CombBaseLine = 0.674 CombEndHeight = 0.207 CombEndMarker = 0 'False CombHeight = 0.104 FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 18 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 495 InflateBottom = 0.311 InflateLeft = 0.113 InflateRight = 0.113 InflateTop = 0.415 InkWidth = 2 Left = 5400 OnTap = -1 'True TabIndex = 1 Text = "BEdit2" Top = 0 Version = 268435458 Width = 3015 End Begin VHedit HEdit1 Alignment = 2 'Center CharSet = 16412 Enabled = 0 'False FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 18 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 435 InflateBottom = 0.466 InflateLeft = 0.169 InflateRight = 0.169 InflateTop = 0.466 Left = 1320 TabIndex = 43 Text = "HEdit1" Top = 0 Version = 268435458 Visible = 0 'False Width = 2415 End Begin Label Label2 Alignment = 2 'Center BackColor = &H00C0C0C0& Caption = "Label2" Height = 375 Left = 4560 TabIndex = 10 Top = 360 Width = 495 End Begin Label Label1 Alignment = 2 'Center BackColor = &H00C0C0C0& Caption = "Label1" Height = 375 Left = 960 TabIndex = 13 Top = 240 Width = 255 End End End Dim group As Integer Sub AniButton1_Click (index As Integer) If smartform(2) Then If index = 0 Then assess2.Show ASSESS1.Hide Else idform.Show ASSESS1.Hide End If formcheck "Admission" End If End Sub Sub AniButton2_Click () If smartform(2) Then menumode ASSESS1 formcheck "Admission" End If End Sub Sub AniButton3_Click (index As Integer) Select Case anibutton3(index).value Case 2 editswap bedit1, hedit1, 1 hedit1.visible = -1 bedit1.visible = 0 editswap bedit2, hedit2, 1 hedit2.visible = -1 bedit2.visible = 0 temprecord.tyme = bedit2.text temprecord.dayt = bedit1.text Case 1 editswap bedit1, hedit1, 2 hedit1.visible = 0 bedit1.visible = -1 editswap bedit2, hedit2, 2 hedit2.visible = 0 bedit2.visible = -1 End Select End Sub Sub BEdit1_Update () 'bedit1.text = " / /" If bedit1.selstart = 7 Then If Mid$(bedit1.text, 3, 1) <> "/" Or Mid$(bedit1.text, 6, 1) <> "/" Then For n = 1 To Len(bedit1.text) If n = 3 Or n = 6 Then a$ = a$ + "/" 'a$ = a$ + Mid$(bedit1.text, n, 1) Else a$ = a$ + Mid$(bedit1.text, n, 1) End If Next n bedit1.text = a$ End If bedit1.selstart = 8 End If End Sub Sub BEdit2_Update () 'bedit2.text = " : : " If bedit2.selstart = 7 Then If Mid$(bedit2.text, 3, 1) <> ":" Or Mid$(bedit2.text, 6, 1) <> ":" Then For n = 1 To Len(bedit2.text) If n = 3 Or n = 6 Then a$ = a$ + ":" 'a$ = a$ + Mid$(bedit2.text, n, 1) Else a$ = a$ + Mid$(bedit2.text, n, 1) End If Next n bedit2.text = a$ End If bedit2.selstart = 8 End If End Sub Sub Check3D1_Click (value As Integer) If check3d1.value = -1 Then temprecord.chk1 = -1 check3d1.forecolor = &H0& check3d1.forecolor = &HFF0000 End If End Sub Sub Check3D2_Click (value As Integer) If check3d2.value = -1 Then temprecord.chk2 = -1 check3d2.forecolor = &H0& check3d2.forecolor = &HFF0000 End If End Sub Sub Check3D3_Click (index As Integer, value As Integer) If check3d3(index).value = -1 Then temprecord.chicks.chek1 = -1 check3d3(index).forecolor = &H0& check3d3(index).forecolor = &HFF0000 End If check3d2.SetFocus End Sub Sub Form_Load () bedit1.charset = ALC_NUMERIC Or ALC_PUNC Or ALC_MATH Or ALC_GESTURE bedit2.charset = ALC_NUMERIC Or ALC_PUNC Or ALC_MATH Or ALC_GESTURE hedit1.charset = ALC_NUMERIC Or ALC_PUNC Or ALC_MATH Or ALC_GESTURE hedit2.charset = ALC_NUMERIC Or ALC_PUNC Or ALC_MATH Or ALC_GESTURE For n = 0 To 2 option3d1(n).forecolor = &HFF0000 Next n For n = 0 To 5 option3d4(n).forecolor = &HFF0000 Next n For n = 0 To 4 option3d10(n).forecolor = &HFF0000 Next n label5.forecolor = &HFF0000 ASSESS1.Move -screen.width - 10, 0, screen.width, screen.height bedit1.text = " / /" bedit2.text = " : :" frame3d1.caption = NextCompanyCaption$ frame3d1.Move ASSESS1.scaleleft, ASSESS1.scaletop, ASSESS1.scalewidth, ASSESS1.scaleheight picture1.Move frame3d1.left, frame3d1.top + 2.5 * TextHeight(frame3d1.caption), frame3d1.width, frame3d1.height \ 2 - 2 * TextHeight(frame3d1.caption) picture2.Move frame3d1.left, frame3d1.height \ 2 + TextHeight(check3d1.caption), frame3d1.width, frame3d1.height \ 2 - anibutton1(0).height bedit1.Move .5, 0, picture1.scalewidth / 3.1, picture1.scaleheight / 6 hedit1.Move .5, 0, picture1.scalewidth / 3.1, picture1.scaleheight / 5.5 label1.fontname = "arial" label1.fontsize = 12 label1.caption = "DATE" label1.Move 0, 0, picture1.scalewidth / 12, picture1.scaleheight / 6 anibutton3(0).Move bedit1.width + bedit1.left + anibutton3(0).width, 0 bedit2.Move 3.5, 0, picture1.scalewidth / 3.1, picture1.scaleheight / 6 hedit2.Move 3.5, 0, picture1.scalewidth / 3.1, picture1.scaleheight / 5.5 label2.fontname = "arial" label2.fontsize = 12 label2.caption = "TIME" label2.Move 3, 0, picture1.scalewidth / 12, picture1.scaleheight / 6 picture3.Move 0, 1, picture1.scalewidth / 3, picture1.scaleheight * .66 picture4.Move 2, 1, picture1.scalewidth * .67, picture1.scaleheight * .66 check3d1.Move 1, 5 anibutton1(0).Move frame3d1.width - anibutton1(0).width * 1.1, frame3d1.height - anibutton1(0).height * 1.1 anibutton1(1).Move .1 * anibutton1(1).width, frame3d1.height - anibutton1(0).height * 1.1 anibutton2.Move (frame3d1.width - anibutton2.width) / 2, frame3d1.height - anibutton2.height * 1.3 picture3.Scale (1, 1)-(3, 4) label3.Move 1, 1, picture3.scalewidth / 2, picture3.scaleheight / 2 label3.fontname = "arial" label3.fontsize = 12 label3.caption = " MODE OF ADMISSION" option3d1(0).Move 2, 1, picture3.scalewidth / 2, picture3.scaleheight / 3 option3d1(1).Move 2, 2, picture3.scalewidth / 2, picture3.scaleheight / 3 option3d1(2).Move 2, 3, picture3.scalewidth / 2, picture3.scaleheight / 3 picture4.Scale (1, 1)-(4, 4) label4.Move 1, 1, picture4.scalewidth / 3, picture4.scaleheight / 2 label4.fontname = "arial" label4.fontsize = 12 label4.caption = " ADMITTED FROM:" option3d4(0).Move 2, 1, picture4.scalewidth * .33, picture3.scaleheight / 3 option3d4(1).Move 2, 2, picture4.scalewidth * .33, picture3.scaleheight / 3 option3d4(2).Move 2, 3, picture4.scalewidth * .33, picture3.scaleheight / 3 option3d4(3).Move 3, 1, picture4.scalewidth * .33, picture3.scaleheight / 3 option3d4(4).Move 3, 2, picture4.scalewidth * .33, picture3.scaleheight / 3 option3d4(5).Move 3, 3, picture4.scalewidth * .33, picture3.scaleheight / 3 picture2.Scale (1, 1)-(5, 2) picture5.Move 1, 1, picture2.scalewidth / 2, picture2.scaleheight picture6.Move 3, 1, picture2.scalewidth / 2, picture2.scaleheight picture5.Scale (1, 1)-(5, 10): picture6.Scale (1, 1)-(5, 12) picture5.fontname = "arial": picture6.fontname = "arial" picture5.fontsize = 12: picture6.fontsize = 12 picture5.currentx = 1: picture5.currenty = 1 picture6.currentx = 1: picture6.currenty = 1 picture5.autoredraw = -1: picture6.autoredraw = -1 picture5.Print " INFORMATION GIVEN BY:" picture6.Print "ORIENTATION TO ROOM " option3d10(0).Move 1, 2, picture5.scalewidth, picture5.scaleheight / 8 option3d10(1).Move 1, 3, picture5.scalewidth, picture5.scaleheight / 8 option3d10(2).Move 1, 4, picture5.scalewidth, picture5.scaleheight / 8 option3d10(3).Move 1, 5, picture5.scalewidth, picture5.scaleheight / 8 option3d10(4).Move 1, 6, picture5.scalewidth, picture5.scaleheight / 8 label5.caption = " PATIENT UNRESPONSIVE OR CONFUSED" + Chr$(13) + Chr$(10) + " NOT ACCOMPANIED BY FAMILY OR FRIEND" label5.Move 1, 7.1, picture5.scalewidth, picture5.scaleheight / 7 check3d2.Move 3.5, 1, picture6.scalewidth, picture6.scaleheight / 10 For n = 1 To 9 check3d3(n - 1).Move 1, n + 1, picture6.scalewidth, picture6.scaleheight / 10 Next n ASSESS1.Move 0, 0 End Sub Sub Option3D1_Click (index As Integer, value As Integer) option3d1(index).forecolor = &H0& group = 3 'highlight assess1, group, index temprecord.theoption.opt1 = -1 If Not nofocuscalls Then check3d1.SetFocus End Sub Sub Option3D10_Click (index As Integer, value As Integer) option3d10(index).forecolor = &H0& If index = 4 Then label5.forecolor = &H0& group = 5 'highlight assess1, group, index temprecord.theoption.opt10 = -1 If Not nofocuscalls Then check3d1.SetFocus End Sub Sub Option3D4_Click (index As Integer, value As Integer) option3d4(index).forecolor = &H0& group = 6 'highlight assess1, group, index If index = 5 Then BEditform.label1.tag = " Enter Location Prior To Admission" BEditform.command2.tag = " Re-Enter Location Prior To Admission" BEditform.Show 1 End If temprecord.theoption.opt4 = -1 If Not nofocuscalls Then check3d1.SetFocus End Sub Sub Picture1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) 'label1.caption = Str$(x) + " " + Str$(y) End Sub